home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 37
/
Amiga Format CD37 (1999-02-16)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-03].iso
/
+system+
/
tools
/
expert
/
libguide
/
checkavolume
< prev
next >
Wrap
Text File
|
1998-12-15
|
2KB
|
55 lines
; CheckYourLibsAtAnyVolume V2.01
; © 10/1998 by Heiko Schröder
; 2.01 keine Auflistung von ~(#?.info|#?.bak|#?.readme|#?.sig)
Echo "
Library-Check at any Volume
*NV2.01 © Heiko Schröder 11/98"
Echo "The report will be written in RAM: and you can't stop the version scan!"
Ask "Do you want to check your system for libraries? (Y/N)"
If NOT WARN=5
C:Quit
EndIf
C:FailAt 100
C:Copy DVC RAM:
C:Copy C:Search RAM:
C:Copy Scripts/LibList.dvc RAM:
C:Copy MyCheck RAM:
C:Copy MyCheck.rexx RAM:
C:Copy MyConvert.rexx RAM:
Echo "List of all your libraries*N--------------------------*N" >Ram:Lib-List
Echo "List of your old libraries*N--------------------------*N" >Ram:Lib-OldList
Echo "List of new libraries*NPlease contact me: age@thepentagon.com*Nand send this file to me. Thanks.*N--------------------------" >Ram:Lib-NewList
Echo "For LibGuide I scan infos about your system:" >>Ram:Lib-NewList
Version >>Ram:Lib-NewList
C:CPU >>Ram:Lib-NewList
Echo "Starting Rexx"
Sys:System/RexxMast
rx MyDevice.rexx
If "$dev" EQ 0
Echo "Cancel"
Wait 2 secs
else
Echo "Looking for Libraries..."
C:List $dev PAT=#?.library~(#?info|#?bak|#?readme|#?sig) ALL quick nohead LFormat="Execute RAM:MyCheck %s%s" >Ram:List1
Sort Ram:List1 Ram:List1
Echo "Starting Check..."
Protect MyCheck +s
Execute Ram:List1
Echo "*N*NREADY!*NThe result can be found at Ram:Lib-OldList and Ram:Lib-NewList ..."
Echo "Please send me the RAM:Lib-NewList for updating the Libraries.guide."
Endif
Delete Ram:List1 QUIET
Delete Ram:DVC QUIET
Delete Ram:Search QUIET
Delete Ram:LibList.dvc QUIET
Delete Ram:MyCheck QUIET
Delete Ram:MyCheck.rexx QUIET
Delete Ram:MyConvert.rexx QUIET
Wait 10 secs